home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
hardc. 802 _1526
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
40 lines
1 REM *********************************
2 REM 4-FACH VERGROESSERTE HARDCOPY
3 REM BY
4 REM RALPH HOFFMANN
5 REM CHRISTOPH BERTOG
6 REM LIEBKNECHTSTR.17
7 REM ZWEIBRUECKEN
8 REM C 1985
9 REM *********************************
10 FORQ=52224TO52540:READD:POKEQ,D:X=X+D:NEXT
15 IF X<>42320 THEN PRINT"DATA-FEHLER":END
20 PRINT"[147]":A1=PEEK(53265):A2=PEEK(53272)
25 OPEN6,4,6:PRINT#6,CHR$(20)
30 OPEN4,4:PRINT#4,CHR$(141)
35 POKE254,0:POKE255,32
50 POKE53265,59:POKE53272,24
55 SYS52224
60 POKE53265,A1:POKE53272,A2
65 IFP=1THEN100
70 INPUT"NEU JUSTIERT";C$
75 IFC$<>"J"THEN97
80 POKE254,160:POKE255,32:P=1:PRINT"[147]":GOTO50
100 CLOSE6:CLOSE4:END
32000 DATA169,160,141,224,3,141,239,3,169,172,141,225,3,141,238,3,169,187,141
32001 DATA226,3,141,237,3,169,162,141,227,3,141,236,3,169,188,141,228,3,141,235
32002 DATA3,169,161,141,229,3,141,234,3,169,191,141,230,3,141,233,3,169,190,141
32003 DATA231,3,141,232,3,169,0,141,240,3,141,241,3,169,1,141,244,3,141,246,3
32004 DATA169,0,141,245,3,162,4,142,242,3,32,201,255,169,0,141,243,3,173,240
32005 DATA3,24,109,241,3,168,177,254,10,46,243,3,10,46,243,3,145,254,200,177
32006 DATA254,10,46,243,3,10,46,243,3,145,254,206,242,3,240,3,76,193,204,169
32007 DATA4,141,242,3,169,8,24,109,240,3,141,240,3,201,160,208,235,169,0,141
32008 DATA240,3,169,2,24,109,241,3,141,241,3,201,8,208,217,169,0,141,241,3,169
32009 DATA64,24,101,254,133,254,144,2,230,255,230,255,173,243,3,201,11,176,8
32010 DATA201,5,144,33,201,8,176,29,169,18,32,210,255,172,243,3,185,224,3,32
32011 DATA210,255,173,246,3,201,20,240,17,169,146,32,210,255,76,246,204,172,243
32012 DATA3,185,224,3,32,210,255,238,246,3,173,246,3,201,21,240,3,76,93,204,169
32013 DATA1,141,246,3,169,20,24,109,245,3,141,245,3,201,80,240,16,170,169,141
32014 DATA32,210,255,169,32,32,210,255,202,208,250,240,219,169,13,32,210,255
32015 DATA169,0,141,245,3,238,244,3,173,244,3,201,101,208,199,32,204,255,96